%
O6047(DGM-E BOTH TOOTH FLANK)
IF[#570EQ2]GOTO30(RIGHT TOOTH GOTO20)

(LEFT FLANK GO)
#3=#513-#514+#508+#507+#526(C-COORDINATE)
#25=#515
IF[#2EQ0]GOTO11
#25=#515+#529*[#2-#1]/#2

N11
G00X[#501+5.0]
Z[#503]
C[#3]Y[#25-#522]
G01X[#516]F2000(ADJUST F VALUE)
G19V0W0
G02Z[#504]R#521H[#531]F#517
G00X[#501+5.0]
IF[#570EQ1]GOTO30(RIGHT TOOTH GOTO30)


N20
(RIGHT FLANK BACK)
#3=#513+#514-#508-#507+#528(C-COORDINATE)
#25=#515
IF[#2EQ0]GOTO21
#25=#515+#530*[#2-#1]/#2

N21
G00X[#501+5.0]
Z[#504]
C[#3+#532]Y[-#25+#524]
G01X[#516]F2000(ADJUST F VALUE)
G19V0W0
G02Z[#503]R#523H[-#532]F#517
G00X[#501+5.0]

N30
M99
%
